home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 176-200 / scopedisk192 / jrlog / jrfilelog.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-19  |  2KB  |  86 lines
  1. /*
  2.  *    Summarize JR-Comm upload/download activity from jrcomm.log file.
  3.  */
  4.  
  5. if ~open('jrclog','JRComm:JRComm.log','Read') then
  6.     do
  7.     say 'Couldn''t open jrcomm.log'
  8.     exit 1
  9.     end
  10. systemname = ''
  11. seen. = 0
  12. upload. = ''
  13. download. = ''
  14. systems. = ''
  15. nsys = 0
  16. do while ~eof('jrclog')
  17.     logline = readln('jrclog')
  18.     parse var logline junk 'Connected to: ' sysname
  19.     if sysname ~= '' then
  20.         do
  21.         systemname = sysname
  22.         if ~seen.systemname then
  23.             do
  24.             seen.systemname = 1
  25.             nsys = nsys + 1
  26.             systems.nsys = systemname
  27.             end
  28.         end
  29.     else
  30.         do
  31.         parse var logline junk 'Disconnect' ed
  32.         if ed ~= '' then
  33.             do
  34.             if systemname ~= '' then
  35.                 systemname = ''
  36.             end
  37.         else
  38.             do
  39.             parse var logline 'd/l: ' rec
  40.             if rec ~= '' then
  41.                 do
  42.                 download.systemname = download.systemname || '|' || rec
  43.                 end
  44.             else
  45.                 do
  46.                 parse var logline 'u/l: ' rec
  47.                 if rec ~= '' then
  48.                     do
  49.                     upload.systemname = upload.systemname || '|' || rec
  50.                     end
  51.                 end
  52.             end
  53.         end
  54.     end
  55. close('jrclog')
  56. tab = '        '
  57. newline = '0a'x
  58. do i = 1 to nsys
  59.     sys = systems.i
  60.     if upload.sys = '' & download.sys = '' then iterate
  61.     say sys
  62.     if upload.sys ~= '' then
  63.         say newline || tab'Uploads'
  64.     str = upload.sys
  65.     parse var str '|' str        /* strip leading separator */
  66.     do forever
  67.         parse var str rec '|' str
  68.         if rec = '' then leave
  69.         parse var rec rate ' -' size ' - ' name
  70.         say tab || tab || left(name,19) right(size,7) right(rate,8)
  71.     end
  72.     if download.sys ~= '' then
  73.         say newline || tab'Downloads'
  74.     str = download.sys
  75.     parse var str '|' str        /* strip leading separator */
  76.     do forever
  77.         parse var str rec '|' str
  78.         if rec = '' then leave
  79.         parse var rec rate ' -' size ' - ' name
  80.         say tab || tab || left(name,19) right(size,7) right(rate,8)
  81.     end
  82.     say ''
  83. end
  84. exit 0
  85.  
  86.